home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / sprite.arc / SPRITE.BAS next >
Encoding:
BASIC Source File  |  1984-07-15  |  2.8 KB  |  41 lines
  1. 1000 REM USE THE FOLLOWING INTEGER ARRAY DIM AS A PATTERN
  2. 1010 DIM I%( 321)
  3. 1020 REM FILL ARRAY BY "READ"ING THE FOLLOWING DATA STATEMENTS
  4. 1025 CLS: SCREEN 1,0
  5. 1030 FOR X = 0 TO 321: READ I%(X): NEXT X
  6. 1040 PUT (128,80),I%,PSET
  7. 1060 GOTO 1060
  8. 2000 DATA    128,    40, 21845, 21845, 21845, 27221,-21846,-21846,-21846,-21846
  9. 2010 DATA  21845, 21845, 21845, 27221,-21846,-21846,-21846,-21846, 32095, -8201
  10. 2020 DATA  -2179, 27359,-21846,-21846,-21846,-21846, 32095, -8201, -2179, 32735
  11. 2030 DATA     -1,    -1,    -1,    -1, 21845, 21845, 21845, 32597,    -1,    -1
  12. 2040 DATA     -1,    -1, -2179, 32223, -8201, 32637,    -1,    -1,    -1,    -1
  13. 2050 DATA  -2179, 32223, -8201, 27261,-21846,-21846,-21846,-21846, 21845, 21845
  14. 2060 DATA  21845, 27221,-21846,-21846,-21846,-21846, 32095, -8201, -2179, 27359
  15. 2070 DATA -21846,-21846,-21846,-21846, 32095, -8201, -2179, 32735,    -1,    -1
  16. 2080 DATA     -1,    -1, 21845, 21845, 21845, 32597,    -1,    -1,    -1,    -1
  17. 2090 DATA  -2179, 32223, -8201, 32637,    -1,    -1,    -1,    -1, -2179, 32223
  18. 2100 DATA  -8201, 27261,-21846,-21846,-21846,-21846, 21845, 21845, 21845, 27221
  19. 2110 DATA -21846,-21846,-21846,-21846, 32095, -8201, -2179, 27359,-21846,-21846
  20. 2120 DATA -21846,-21846, 32095, -8201, -2179, 32735,    -1,    -1,    -1,    -1
  21. 2130 DATA  21845, 21845, 21845, 32597,    -1,    -1,    -1,    -1, 21845, 21845
  22. 2140 DATA  21845, 32597,    -1,    -1,    -1,    -1,-21846,-21846,-21846,-21846
  23. 2150 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  24. 2160 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  25. 2170 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  26. 2180 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  27. 2190 DATA     -1,    -1,    -1,    -1,-21846,-21846,-21846,-21846,-21846,-21846
  28. 2200 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  29. 2210 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,    -1,    -1
  30. 2220 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  31. 2230 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  32. 2240 DATA     -1,    -1,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  33. 2250 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  34. 2260 DATA -21846,-21846,-21846,-21846,-21846,-21846,    -1,    -1,    -1,    -1
  35. 2270 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  36. 2280 DATA     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1
  37. 2290 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  38. 2300 DATA -21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846,-21846
  39. 2310 DATA -21846,-21846,-21846,-21846,     0,     0,     0,     0,     0,     0
  40. 2320 DATA      0,     0
  41.